home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / htmlcat / rexx / adpro / mkvignettes.rexx
OS/2 REXX Batch file  |  1997-05-02  |  3KB  |  154 lines
  1. /*
  2. ** Creation de Vignettes (C) Jimmy Productions 1997 ( from PUMPKIN/OMD 27/4/94 )
  3.  
  4. ** Crée des vignettes à partir d'une liste d'images
  5. */
  6.  
  7. IF ~SHOW('L',"rexxsupport.library") THEN CALL ADDLIB("rexxsupport.library",0,-30)
  8. SIGNAL ON SYNTAX
  9. SyntaxID='AddRexxSupport'
  10. CALL NULL()
  11. SIGNAL OFF SYNTAX
  12. IF POS('ADPro',SHOW('Ports'))=0 THEN DO
  13.  Max_Seconds_To_Load=60
  14.  zz=0
  15.  CALL TIME('R')
  16.  DO WHILE TIME('E')<Max_Seconds_To_Load & POS('ADPro',SHOW('Ports'))=0
  17.   IF zz=0 THEN DO
  18.    IF EXISTS('ADPro:ADPro') THEN DO
  19.     ADDRESS COMMAND 'C:Run >NIL: ADPRO:ADPro MAXMEM=10000000 NOSAVEDEFAULTS DEFAULTFILE=ADPro:ADPro.prefs'
  20.    END
  21.    zz=1
  22.   END
  23.   CALL Delay(50)
  24.  END
  25.  IF POS('ADPro',SHOW('Ports'))=0 THEN DO
  26.   SAY "Could not start ADPro/MorphPlus"
  27.   EXIT
  28.  END
  29. END
  30.  
  31. /*
  32. TRACE("NORMAL")
  33. TRACE("RESULTS")
  34. */
  35.  
  36. ADDRESS "ADPro"
  37. OPTIONS RESULTS
  38.  
  39. NL = '0A'X
  40. SQ = '27'X
  41. DQ = '22'X
  42. TRUE  = 1
  43. FALSE = 0
  44. TempDefaults = "T:TempADProDefaults"
  45.  
  46. /*
  47. ** Save the current environment.
  48. */
  49.  
  50. SAVE_DEFAULTS TempDefaults
  51.  
  52. PARSE ARG argu
  53.  
  54.  
  55. File_path = WORD(argu,1)
  56. Sheight = WORD(argu,2)
  57. FilesList = ""
  58.  
  59. open('file', 't:htmlcat12.tmp', 'R')
  60.  
  61. nom = readln('file')
  62.  
  63.  
  64. DO WHILE nom ~=""
  65.     FilesList = Fileslist||DQ||nom||DQ||" "
  66.     nom = readln('file')
  67. END
  68.  
  69. /*
  70. ** ----------------------------------------------------------
  71. ** Partie specifique adpro finie debut processus d'indexation
  72. ** ----------------------------------------------------------
  73. */
  74.  
  75. LFORMAT "UNIVERSAL"
  76. LOAD_TYPE REPLACE
  77.  
  78. ExtensionList:
  79.  
  80.  
  81. pref = "v"
  82.  
  83. /*
  84. ** ----------------
  85. ** boucle multi-idx
  86. ** ----------------
  87. */
  88.  
  89. OneMoreTime:
  90.  
  91. Bool_Arret = FALSE
  92. Bool_LastFile = FALSE
  93. PosCut = 1
  94.  
  95. DO WHILE Bool_LastFile = FALSE
  96.  
  97. /* ! chargement ! */
  98.  
  99.     LOAD_TYPE REPLACE
  100.  
  101.     ListCut=POS('" "',FilesList,PosCut)
  102.  
  103.     IF ListCut = 0 THEN DO
  104.         Bool_LastFile = TRUE
  105.         ListCut = LENGTH(FilesList)
  106.     END
  107.  
  108.     Length_FileName = ListCut - PosCut + 1
  109.     File_to_Load = SUBSTR(FilesList,PosCut,Length_FileName)
  110.  
  111.  
  112.     AnteCut = PosCut
  113.     PosCut = ListCut+2
  114.  
  115.     ErrLoad = FALSE
  116.  
  117.     LOADER "UNIVERSAL" File_to_Load
  118.  
  119. /* ! reduction ! */
  120.  
  121.     YSIZE
  122.     Height = ADPRO_RESULT
  123.     ratio = (Sheight/Height)*100
  124.     PCT_SCALE ratio ratio
  125.  
  126.     posit=1
  127.  
  128.     posit = POS(':',File_to_Load,posit)
  129.     nposit= posit
  130.  
  131.     DO WHILE nposit ~= 0
  132.         nposit = POS('/',File_to_Load,posit+1)
  133.         IF nposit ~=0 THEN DO
  134.             posit = nposit 
  135.         END
  136.     END
  137.  
  138.     File_pat  = SUBSTR(File_to_Load,1,posit)
  139.     File_name = SUBSTR(File_to_Load,posit+1,LENGTH(File_to_Load)-posit-1)
  140.         lc = POS('"',File_name,1)
  141.  
  142.     IF lc ~= 0 THEN DO
  143.             File_name = SUBSTR(File_name,1,lc-1)
  144.     END
  145.  
  146.     SAVER "JPEG" File_path||pref||File_name "RAW" "QUALITY" 10 "BOOST"
  147.  
  148.  
  149. END
  150.  
  151. DISPLAYMESSAGE '"Art Department Professional"'
  152.  
  153. Exit
  154.